MacWarehouse Macintosh Games/MacWarehouse Macintosh Games.iso/AMBER demo/ROXY/ROXY.dxr/00024_amber icon --.ls

Text File | 1996-10-18 | 608 b | 19 lines

on mouseDown
  global oPuppeteer, oStoryteller, gCPU
  set pkScanIcon to 41
  set pkBarIcon to 42
  set pkAmberIcon to 43
  resetPeeKdisplay()
  if getState(oStoryteller, #AMBERisOnline) = 1 then
    set the castNum of sprite 43 to getAt(getProp(the lsMultiFrames of oPuppeteer, #amberIcon), 4)
  end if
  set textList to getProp(the lsMultiFrames of oPuppeteer, #peekText)
  set stateMsg to value("#amber" & getState(oStoryteller, #PKamberStatus))
  set the castNum of sprite 40 to getProp(textList, stateMsg)
  soundEffect(#peekButton)
  if gCPU = #PC then
    suspendSounds()
  end if
  updateStage()
end